home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / SWITCH.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  514 b   |  24 lines
  1. 10 RANDOMIZE VAL(RIGHT$(TIME$,2))
  2. 20 FOR G=0 TO 7
  3. 30 SCREEN 0,0,G,G
  4. 40 D=0
  5. 50 CLS
  6. 60 KEY OFF
  7. 70 WIDTH 40
  8. 80 D=D+1
  9. 90 IF D<>959 THEN 110
  10. 100 GOTO 150
  11. 110 X=INT(RND(1)*16)
  12. 120 COLOR X,0,0
  13. 130 PRINT CHR$(219);
  14. 140 GOTO 80
  15. 150 NEXT G:BEEP
  16. 160 FOR A=1 TO 250:NEXT A
  17. 170 IF INKEY$=CHR$(27) THEN 200
  18. 180 F=F+1:IF F>7 THEN F=0
  19. 190 SCREEN 0,0,0,F:GOTO 160
  20. 200 I$=INKEY$:IF I$="" THEN 200
  21. 210 IF I$=CHR$(27) THEN 160
  22. 220 IF VAL(I$)<0 OR VAL(I$)>7 THEN BEEP:GOTO 160
  23. 230 SCREEN 0,0,0,VAL(I$):GOTO 200
  24.